#!/usr/bin/perl -w

use strict;


# Poor-mans "runtest".
#
# If the DejaGNU package is not installed, try to manually run each
# shell script.

my @files = `ls *.sh`;

foreach my $file ( @files ) {
    $file =~ s/\n//; # Strip the ending newline the shell gives us
    my $output = `./$file`;

    if ( $output =~ m/PASSED/ ) {
        print "PASSED";
    } else {
        print "FAILED";
    }
    print " $file\n";
}
